home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / v11n04.zip / PSWRD2.WFW < prev    next >
Text File  |  1992-01-27  |  437b  |  24 lines
  1. Sub MAIN
  2. FileNew
  3. If Not DocMaximize() Then DocMaximize 
  4. repeat:
  5. On Error Goto 0
  6. On Error Goto Repeat
  7. DisableInput 1
  8. a$ = InputBox$("Enter Password ",  " Password Locked ")
  9. If a$ = "password" Then
  10.        Goto done
  11.     Else
  12.        Beep
  13.        pw = pw + 1
  14. End If
  15. Goto repeat
  16. done:
  17. If pw > 0 Then
  18.        MsgBox "Incorrect password entered" \
  19.        + Str$(pw) + " times", "Password Unlocked"
  20. End If
  21. FileClose
  22. End Sub
  23.  
  24.